home *** CD-ROM | disk | FTP | other *** search
/ Time Warp / Time Warp.iso / pc / timewarp / lab.dxr / 00248.ls < prev    next >
Encoding:
Text File  |  1997-06-09  |  1.1 KB  |  44 lines
  1. on ChooseEvalMovie
  2.   global discsLoaded, SexLevel
  3.   puppetSprite(5, 1)
  4.   if discsLoaded > 0 then
  5.     set SexLevel to discsLoaded
  6.     updateSexLevel()
  7.   end if
  8.   if discsLoaded = 1 then
  9.     LoadMovie(5, "JR1.MOV")
  10.   else
  11.     if discsLoaded = 2 then
  12.       LoadMovie(5, "JR2.MOV")
  13.     else
  14.       if discsLoaded = 3 then
  15.         LoadMovie(5, "JR3.MOV")
  16.       else
  17.         if discsLoaded = 4 then
  18.           LoadMovie(5, "JR4.MOV")
  19.         else
  20.           if discsLoaded = 5 then
  21.             LoadMovie(5, "JR5.MOV")
  22.           else
  23.             if discsLoaded = 6 then
  24.               LoadMovie(5, "JR6.MOV")
  25.             else
  26.               if discsLoaded = 7 then
  27.                 set the visible of sprite 2 to 0
  28.                 LoadMovie(5, "JR9.MOV")
  29.               else
  30.                 if discsLoaded > 7 then
  31.                   alert("Leider keine weiteren Szenen... Vielleicht auf der n├ñchsten CD, TIME WARP 2!")
  32.                   go("MONITOR ON")
  33.                   exit
  34.                 end if
  35.               end if
  36.             end if
  37.           end if
  38.         end if
  39.       end if
  40.     end if
  41.   end if
  42.   getQTLen(5)
  43. end
  44.